[=PascalABC]
[0]
[1-999]
begin

end.
